﻿Public Class ClassCalque
    'Classe permettant de conserver l'état de visibilité des calques Visio par noms.
    Public Nom As String
    Public Visible As Boolean

    Public Sub New()
        Me.Nom = ""
        Me.Visible = True
    End Sub

    Public Function ToXMLElement(ByRef oXmlDoc As System.Xml.XmlDocument) As System.Xml.XmlElement
        Dim oDiapoXML As System.Xml.XmlElement = oXmlDoc.CreateElement("Calque")
        AjoutePropXML(oXmlDoc, oDiapoXML, "Nom", Me.Nom)
        AjoutePropXML(oXmlDoc, oDiapoXML, "Visible", Me.Visible.ToString)
        Return oDiapoXML
    End Function

    Public Sub FromXMLElement(ByVal oElement As System.Xml.XmlElement)
        Me.Nom = GetPropXML(oElement, "Nom")
        Me.Visible = GetPropXMLBool(oElement, "Visible")
    End Sub
End Class
